home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / FORTRAN / 3017.ZIP / TSLOG.FOR < prev    next >
Text File  |  1988-10-30  |  370b  |  21 lines
  1.       PROGRAM TSLOG
  2. C
  3. C     TO TEST SLOGIC
  4. C     OLYMPIC SOFTWARE   9/27/88
  5. C
  6.       EXTERNAL SLOGIC
  7.       INTEGER*2 IOP,IA,IB,IC
  8. C
  9.       WRITE(*,10)
  10.  10   FORMAT(' ENTER IOP(1,2,3,4:AND,OR,XOR,NOT), IA, IB: ',$)
  11.       READ(*,*)IOP,IA,IB
  12. C
  13.       CALL SLOGIC(IOP,IC,IA,IB)
  14. C
  15.       WRITE(*,11)IC
  16.  11   FORMAT(' IA.IOP.IB= ',I8)
  17. C
  18.       STOP
  19.       END
  20.  
  21.